Syntax10.Scn.Fnt Syntax12.Scn.Fnt MODULE Configuration; (* jt 22.10.93 / js 28.10.93 *)(*<<<< MAH 20.7.94 *) * Executing the body of this module sets up the startup viewer configuration. * In addition to the standard config, this configuration sets up an 'intelligent' * scrolling log viewer. * This module might be changed and recompiled to fit your personal needs. * If the Configuration.obj file does not exist, a default configuration will be used. IMPORT Viewers, Oberon, TextFrames, MenuViewers, Display, Texts, Fonts, Directories; CONST StandardMenu = "System.Close System.Copy System.Grow Edit.Search Edit.Store "; LogMenu = "System.Close System.Grow Edit.Locate Edit.Store "; pinPos: LONGINT; res: INTEGER; PROCEDURE HandleLog(F: Display.Frame; VAR M: Display.FrameMsg); VAR p, org1, old: LONGINT; y: INTEGER; loc : TextFrames.Location; BEGIN TextFrames.Handle(F, M); IF M IS TextFrames.UpdateMsg THEN WITH M: TextFrames.UpdateMsg DO IF (M.text = Oberon.Log) & (M.id = TextFrames.insert) THEN WITH F: TextFrames.Frame DO p:=TextFrames.Pos (F, F.X+F.W, F.Y); old:=0; WHILE (p#old) & (p